﻿
Partial Class identif
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim usrcntrl As UserControl
        Dim txtbx As TextBox
        usrcntrl = Page.FindControl("Txtboxusr1")
        txtbx = usrcntrl.FindControl("TextBox1")
        Dim cs As ClientScriptManager
        cs = Page.ClientScript
        cs.RegisterClientScriptBlock(Me.GetType, "fillusr", "function FillBox(){document.forms[0]." & txtbx.ClientID & ".value='" & txtbx.ClientID & "';}", True)
    End Sub

    Protected Sub Txtboxusr1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtboxusr1.Load

    End Sub
End Class
